www.gusucode.com > 落叶冰点万能企业网站内容管理系统 V9.1 > 落叶冰点万能企业网站内容管理系统 V9.1\code\admin\admindown\D_yidong.asp

    <%


'**************************************************************
' 新动软网站管理系统
' 官方网站: http://www.aspcpu.com
' 系统作者: 阮丁远(网名：天下程序)
' Copyright 新动软网站管理系统 版权所有
'**************************************************************


%>





<LINK href="../css.css" type=text/css rel=stylesheet>
<%

dir_set="../../"


%>


<!--#include file=../../inc/conn.asp-->
<!--#include file=../../inc/Functionb.asp-->

<!--#include file=../../inc/ajaxLIB.asp-->

<!--#include file=../inc/checkadmin2.asp-->

<!--#include file=../../inc/functionFiless.asp-->



<!--#include file=inc_lanmu_bl.asp-->

<%
AJAXshowLoader()


%>



<style type="text/css">
<!--
.STYLE3 {
	color: #FFFFFF;
	font-weight: bold;
}
.STYLE4 {
	color: #FF0000;
	font-weight: bold;
}
-->
</style>

<br />
<div  id="l_list" style="filter:blendTrans(duration=1);  width:774px; z-index:-1; border: 1px dashed #999999;left: 3px; top: 120px; height: 121px;width:730px">

<script language="javascript">
function  con(){


if (confirm("确认移动?")==1)
{
return true;

}

else
{
return false;
}

}


</script>






<form action="D_do_yidong.asp" method="post" target="_self" onsubmit="return con();">
<table  height="30" width=730 border="0" cellpadding="2" cellspacing="0" bordercolor="#999999" style="border:#999999 1px">

<tr>

<td>

<table  height="148" width=730 border="0" cellpadding="0" cellspacing="0" bordercolor="#999999">


	<%
biao="[ND_down_class]"

biaog="[ND_userGroup]"
sys_content_type=trim(request("sys_content_type"))


set rs44g=server.CreateObject("adodb.recordset")
rs44g.open "select * from ND_channel where sys_content_type_name='"&sys_content_type&"' and lanmu_type='"&lanmu_taba&"'",conn,1,1
if find_dataw(lanmu_taba,rs44g("id"),2)<>"1" and qx_if_max=0 then
response.redirect "../D_suodinguser.asp"
end if
execute("aaaaa=sy"&"s_ur"&"l_g"&"et")
execute("aaaaa2=sy"&"s_ur"&"l_g"&"et_b")
if cstr(aaaaa)<>cstr(aaaaa2) or aaaaa="" then
response.redirect "../D_admin_s"&"e.asp"
response.end 
end if
  function next_cen(pid_list,deepth)



  
set rs=server.CreateObject("adodb.recordset")

pppcid="-123"
if pid_list<>"" then
ppplista=split(pid_list,",")
ppplistaubd=ubound(ppplista)-1
pppcid=ppplista(ppplistaubd)
end if
  
  
rs.open "select * from "&biao&" where ((deepth="&deepth&" and ((parent_id_list like '%"&pid_list&"%') or (parent_id='"&pppcid&"')))) and sys_content_type='"&sys_content_type&"' order by orders asc",conn,1,1

if pid_list<>"" then
lista=split(pid_list,",")
numa=ubound(lista)
p_id=cstr(lista(numa))

else

p_id=0

end if



do while  not rs.eof

pid_list222=rs("parent_id_list")&","&rs("id")&","
deepth222=rs("deepth")+1


    set rs2=server.CreateObject("adodb.recordset")    
rs2.open "select * from "&biao&" where ((deepth="&deepth222&" and ((parent_id_list like '%"&pid_list222&"%') or (parent_id='"&rs("id")&"'))))   and sys_content_type='"&sys_content_type&"' order by orders asc",conn,1,1


if rs2.eof then


if pid_list<>"" then
lista=split(pid_list,",")
numa=ubound(lista)
p_id=cstr(lista(numa-1))

else

p_id=0

end if
if p_id=0 then p_id=-1


'response.write "<level1 id="""&rs("id")&""" parentTypeID="""&p_id&""" caption="""&rs("ClassName")&""" PRI=""1"" explain="""&rs("id")&"""/>"&vbcrlf

%>



<option value="<%=rs("id")%>">


<%for iiiii1=1 to cint(deepth222)
if iiiii1=cint(deepth222) then
%>
├<%
else
%>
│<%
end if
next

%><%=rs("classname")%></option>
 




<%

if not rs.eof then rs.movenext



if rs.eof or rs.bof then

 'response.write "</level0>"


'call next_cen_class(pid_list222,deepth222)

exit function



else




 
 
need_benji_next=1

end if

else




'response.write "<level0 id="""&rs("id")&"""  parentTypeID="""



'if deepth=0 then response.write "-1" else  response.write p_id


'response.write """ caption="""&rs("ClassName")&"""  PRI=""2"" explain="""&rs("id")&""" >"&vbcrlf

%>







<option value="<%=rs("id")%>">


<%for iiiii1=1 to cint(deepth222)
if iiiii1=cint(deepth222) then
%>
├<%
else
%>
│<%
end if
next

%><%=rs("classname")%></option>
 











<%









call next_cen(pid_list222,deepth222)







if not rs.eof then rs.movenext

need_benji_next=1

if rs.eof or rs.bof then

'if deepth<>0  then response.write "</level0>"


'call next_cen_class(pid_list222,deepth222)

exit function


end if











end if


if need_benji_next=0 then

exit do

end if

need_benji_next=0
loop



end function









%>




<script language="javascript">
function show1(yn){
ss=yn;
if (ss=="1"){
document.getElementById("classurl1").style.display='';
}
else
{
document.getElementById("classurl1").style.display='none';
}


}

</script>


<tr>
<td height="30" align="center" class="adminth" colspan="2"><span class="STYLE3">批量移动内容  </span></td>
</tr>







<tr>
<td width="91" height="51" align="left" bgcolor="#ffffff"><strong>原分类:  </strong></td>
<td width="639" height="51" align="left" bgcolor="#EDF8FE">



<select size="1" name="yclassid">


<option value="xx" >请选择原分类</option>
<%

call next_cen("",0)




%>
</select>
<span class="STYLE4">(注意：移动父分类的内容时，其子分类的内容不会被移动，请再移动子分类的)</span></td>
</tr>




<tr>
<td width="91" height="46" align="left" bgcolor="#ffffff"><strong>移动到的分类:  </strong></td>
<td width="639" height="46" align="left" bgcolor="#EDF8FE">



<select size="1" name="dclassid">


<option value="xx" >请选择 移动到的分类</option>
<%

call next_cen("",0)




%>
</select></td>
</tr>
<!--#include file=../inc/inc_sys.asp-->


















<tr>
<td align="center" colspan="2">

<input type="hidden" name="id"  value="<%=request("id")%>">

<input type="hidden" name="sys_content_type"  value="<%=request("sys_content_type")%>">


&nbsp;&nbsp;
		<input type="submit" value="开始移动" name="B2" class=Button></td>
</tr>
</table>


</td>
</tr>
</table>

</form>
</div>






<script language=javascript>
AJAXfade(1,'l_list')
</script>


<%
AJAXcloseLoader()
%>